home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / xydrv16.bas < prev    next >
Encoding:
BASIC Source File  |  1999-01-09  |  2.8 KB  |  73 lines
  1. '
  2. ' XYDRIV16.BAS [Version 2.3.5]
  3. '
  4. ' Set RX & TX queue sizes (SioReset) to at least 1040 bytes.
  5. '
  6.  
  7. Option Explicit
  8.  
  9. DefInt A-Z
  10.  
  11. Global Const XY_IDLE = 0
  12. Global Const XY_RUNNING = -1
  13.  
  14. ' XYDRIVER error codes
  15.  
  16. Global Const XY_NO_ERROR = 0
  17. Global Const XY_UNKNOWN_ERROR = -300
  18. Global Const XY_ALREADY_ACTIVE_ERROR = -301
  19. Global Const XY_CANNOT_OPEN_ERROR = -302
  20. Global Const XY_EMPTY_FILE_ERROR = -303
  21. Global Const XY_NO_STARTUP_CHAR_ERROR = -304
  22. Global Const XY_NOT_NCG_ERROR = -305
  23. Global Const XY_DISK_READ_ERROR = -306
  24. Global Const XY_NO_EOT_ACK_ERROR = -307
  25. Global Const XY_INTERNAL_ERROR = -308
  26. Global Const XY_CANCELLED_ERROR = -309
  27. Global Const XY_OUT_OF_SYNC_ERROR = -310
  28. Global Const XY_RETRIES_ERROR = -311
  29. Global Const XY_BAD_PACKET_NBR_ERROR = -312
  30. Global Const XY_TIMED_OUT_ERROR = -313
  31. Global Const XY_NO_SUCH_FILE_ERROR = -314
  32. Global Const XY_NOT_ACTIVE_ERROR = -315
  33. Global Const XY_PORT_RANGE_ERROR = -316
  34. Global Const XY_DISK_WRITE_ERROR = -317
  35. Global Const XY_ABORTED_ERROR    = -318
  36. Global Const XY_MEMORY_ERROR = -319
  37. Global Const XY_SHORT_PACKET = -320
  38.  
  39. ' xyGetParameter commands
  40.  
  41. Global Const XY_GET_ERROR_CODE = 0
  42. Global Const XY_GET_ERROR_STATE = 1
  43. Global Const XY_GET_PACKET = 2
  44. Global Const XY_GET_STATE = 3
  45. Global Const XY_GET_FILE_SIZE = 4
  46. Global Const XY_GET_NBR_NAKS = 5
  47. Global Const XY_GET_DEBUG = 6
  48. Global Const XY_GET_LAST_GET = 7
  49. Global Const XY_GET_LAST_PUT = 8
  50. Global Const XY_GET_GET_COUNT = 9
  51. Global Const XY_GET_PUT_COUNT = 10
  52. Global Const XY_GET_DRIVER_COUNT = 11
  53. Global Const XY_GET_VERSION = 12
  54.  
  55. ' xySetParameter commands
  56.  
  57. Global Const XY_SET_NAK_RATE = 52
  58. Global Const XY_SET_EOF_CHAR = 53
  59. Global Const XY_SET_STARTUP_WAIT = 54
  60.  
  61. Declare Sub xyError Lib "XYDRV16.DLL" (ByVal Port, ByVal Text As String)
  62. Declare Function xyAbort Lib "XYDRV16.DLL" (ByVal Port) As Integer
  63. Declare Function xyAcquire Lib "XYDRV16.DLL" (ByVal First, ByVal Last) As Integer
  64. Declare Function xyDebug Lib "XYDRV16.DLL" (ByVal Port) As Integer
  65. Declare Function xyDriver Lib "XYDRV16.DLL" (ByVal Port) As Integer
  66. Declare Function xyGetFileName Lib "XYDRV16.DLL" (ByVal Port, ByVal Text As String, ByVal Size As Integer) As Integer
  67. Declare Function xyGetMessage Lib "XYDRV16.DLL" (ByVal Port, ByVal Text As String, ByVal Size As Integer) As Integer
  68. Declare Function xyGetParameter Lib "XYDRV16.DLL" (ByVal Port, ByVal ParmName As Integer) As Integer
  69. Declare Function xySetParameter Lib "XYDRV16.DLL" (ByVal Port, ByVal ParmName As Integer, ByVal ParmValue As Integer) As Integer
  70. Declare Function xyRelease Lib "XYDRV16.DLL" () As Integer
  71. Declare Function xyStartRx Lib "XYDRV16.DLL" (ByVal Port, ByVal Buffer As String, ByVal NCRchar As Integer, ByVal Batch As Integer) As Integer
  72. Declare Function xyStartTx Lib "XYDRV16.DLL" (ByVal Port, ByVal Buffer As String, ByVal OneKflag As Integer, ByVal Batch As Integer) As Integer
  73.